home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LabelMaster 1.0.cpt / LabelMaster 1.0 / background_6050.txt < prev    next >
Text File  |  1990-12-13  |  9KB  |  425 lines
  1. -- background: 6050 from stack: in.0
  2. -- bmap block id: 4012
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.  
  9. end idle
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. -- part 13 (field)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=7 top=101 right=120 bottom=202
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: 
  28. ----- HyperTalk script -----
  29. put field name1 into field spine1
  30.  
  31.  
  32.  
  33. -- part 5 (field)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=7 top=121 right=254 bottom=203
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 3
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: RC1
  45.  
  46.  
  47. -- part 14 (field)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=227 top=101 right=119 bottom=421
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: 
  59.  
  60.  
  61. -- part 9 (field)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=228 top=120 right=253 bottom=421
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: RC2
  73.  
  74.  
  75. -- part 38 (button)
  76. -- low flags: 00
  77. -- high flags: 8002
  78. -- rect: left=60 top=260 right=277 bottom=77
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: 1
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   beep
  90.   set textAlign of field "RC1" to left
  91.   set textFont of field "RC1" to Geneva
  92.   set textSize of field "RC1" to 9
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 39 (button)
  98. -- low flags: 00
  99. -- high flags: 8002
  100. -- rect: left=85 top=260 right=277 bottom=101
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: 2
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   beep
  112.   set textAlign of field "RC2" to left
  113.   set textFont of field "RC2" to Geneva
  114.   set textSize of field "RC2" to 9
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 40 (button)
  120. -- low flags: 00
  121. -- high flags: 8002
  122. -- rect: left=153 top=260 right=277 bottom=170
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: 1
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   beep
  134.   set textAlign of field "RC1" to left
  135.   set textFont of field "RC1" to Geneva
  136.   set textSize of field "RC1" to 12
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 41 (button)
  142. -- low flags: 00
  143. -- high flags: 8002
  144. -- rect: left=178 top=260 right=277 bottom=194
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: 2
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   beep
  156.   set textAlign of field "RC2" to left
  157.   set textFont of field "RC2" to Geneva
  158.   set textSize of field "RC2" to 12
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 42 (button)
  164. -- low flags: 00
  165. -- high flags: 8002
  166. -- rect: left=265 top=260 right=277 bottom=282
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: 1
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   beep
  178.   set textAlign of field "RC1" to center
  179.   set textFont of field "RC1" to Geneva
  180.   set textSize of field "RC1" to 9
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 43 (button)
  186. -- low flags: 00
  187. -- high flags: 8002
  188. -- rect: left=292 top=260 right=277 bottom=308
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: 2
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   beep
  200.   set textAlign of field "RC2" to center
  201.   set textFont of field "RC2" to Geneva
  202.   set textSize of field "RC2" to 9
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 44 (button)
  208. -- low flags: 00
  209. -- high flags: 8002
  210. -- rect: left=370 top=260 right=277 bottom=387
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: 1
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   beep
  222.   set textAlign of field "RC1" to center
  223.   set textFont of field "RC1" to Geneva
  224.   set textSize of field "RC1" to 12
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 45 (button)
  230. -- low flags: 00
  231. -- high flags: 8002
  232. -- rect: left=398 top=260 right=277 bottom=414
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: 2
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   beep
  244.   set textAlign of field "RC2" to center
  245.   set textFont of field "RC2" to Geneva
  246.   set textSize of field "RC2" to 12
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 48 (button)
  252. -- low flags: 00
  253. -- high flags: 0000
  254. -- rect: left=14 top=279 right=300 bottom=48
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 21700 / 21700
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Home
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   visual effect iris open
  266.   go Home
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 51 (button)
  272. -- low flags: 00
  273. -- high flags: 0000
  274. -- rect: left=448 top=239 right=283 bottom=506
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: Next
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   if the freeSize of this stack > 0 then domenu "compact stack"
  286.   push card
  287.   visual effect dissolve
  288.   go to card id 5848
  289.   set the cursor to 1
  290.   tabkey
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 52 (button)
  296. -- low flags: 00
  297. -- high flags: 0000
  298. -- rect: left=464 top=300 right=324 bottom=504
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 26635 / 26635
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: New Button
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   push card
  310.   Visual effect dissolve to white
  311.   go to card id 4298
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 54 (button)
  317. -- low flags: 00
  318. -- high flags: 0000
  319. -- rect: left=10 top=301 right=340 bottom=53
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Erase Card
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   beep
  331.   put the userLevel into saveLevel
  332.   set the userLevel to 3
  333.   if the userLevel < 3 then exit mouseUp
  334.   if the freeSize of this stack > 0 then domenu "compact stack"
  335.   choose select tool
  336.   drag from 2,68 to 171,101
  337.   domenu clear picture
  338.   choose select tool
  339.   drag from 173,68 to 341,101
  340.   domenu clear picture
  341.   choose select tool
  342.   drag from 343,68 to 512,101
  343.   domenu clear picture
  344.   put "" into field 1
  345.   put "" into field 2
  346.   put "" into field 3
  347.   put "" into field 4
  348.   set the cursor to 1
  349.   tabkey
  350.   set the userLevel to saveLevel
  351.  
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 55 (button)
  357. -- low flags: 00
  358. -- high flags: 8001
  359. -- rect: left=460 top=22 right=62 bottom=503
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 1007 / 1007
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: 
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   beep
  371.   put the userLevel into saveLevel
  372.   set the userLevel to 3
  373.   if the userLevel < 3 then exit mouseUp
  374.   if the freeSize of this stack > 0 then domenu "compact stack"
  375.   put field id 13 into temp1
  376.   put field id 14 into temp2
  377.   choose select tool
  378.   drag from 7,57 to 203,101
  379.   domenu clear picture
  380.   choose text tool
  381.   click at 105,85
  382.   set textfont to geneva
  383.   set textsize to 12
  384.   set textalign to center
  385.   type temp1
  386.   choose select tool
  387.   drag from 7,57 to 203,101
  388.   domenu flip vertical
  389.   domenu flip horizontal
  390.   choose text tool
  391.   click at 105,100
  392.   set textfont to geneva
  393.   set textsize to 9
  394.   set textstyle to plain
  395.   set textalign to center
  396.   type temp1
  397.   choose select tool
  398.   drag from 228,57 to 422,101
  399.   domenu clear picture
  400.   choose text tool
  401.   click at 325,85
  402.   set textfont to geneva
  403.   set textsize to 12
  404.   set textalign to center
  405.   type temp2
  406.   choose select tool
  407.   drag from 228,57 to 422,101
  408.   domenu flip vertical
  409.   domenu flip horizontal
  410.   choose text tool
  411.   click at 325,100
  412.   set textfont to geneva
  413.   set textsize to 9
  414.   set textstyle to plain
  415.   set textalign to center
  416.   type temp2
  417.   choose browse tool
  418.   wait for 2 seconds
  419.   domenu print card
  420.   answer " Do You Another Copy?" with "Yes" or "No" or "Cancel"
  421.   if it is "Yes" then domenu print card
  422.   set the userLevel to saveLevel
  423. end mouseUp
  424.  
  425.